program init2d(output);
{ FLAG -fextended-pascal }
type tr = record i, j , k : integer end;
var vr : tr value (0, 1, 2); { WRONG }
begin
end
.
